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About Ms Manuali 


The SYSD/JFT Reference Manual explains how to create panels users can access through 
SYSD or GPMS. This manual is used by the programmer responsible for creating and 
maintaining the JFT panels. 
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About this Manual 


Manual Organization 

The SYSD/JFT Reference Manual is organized as follows. 



Ch&pter tf Introduction 

Briefly describes SYSD/JFX including JFT's components; storing panels, skeletons, and 
messages; JFT's variables; and executing JFT panels. 


Chapter 2, Panel Sections 

Describes the sections a panel can have and the parameters for each one. 

Chapter 3, Variables 

Describes the system, profile, control, and user variables you can use in the )INIT, )PROC, 
and )BODY sections. 


Chapter 4y Logic Statements 

Describes the statements you can use in the )INIT and )PROG sections. 


Chapter 5, Skeleton and Message Files 

Explains how to use skeleton and message files. 



Chapter 6, Calling CICS Programs 

Explains some of the logic behind the design of the JFT panels, including communicating 
between panels and GICS programs. 


Appendix CPMS/SYSD Menu System Variables 

Lists the variables available to JFT from the GPMS/SYSD menu^ system. 


Appendix S, Sample Panels 

Provides samples of some SYSD/JFT panels and the code that generates them. 


Appendix Cf JFTADD Program 

Provides the complete code for the JFTADD'programi 
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About this Manual 


Conventions 


The SYSD/JFT Reference Manual uses the following conventions. 


Text and Keyboard Conventions 

This kind of text Identifies 

BOLD bold Commands and text you type. Uppercase bold text represents 

information you must type exactly as it appears. Lowercase 
text represents information you must substitute with the 
appropriate text. For example, when you see vaiiiable_name in 
the syntax of a logic statement, type the appropriate variable 
name. 

Field names, manual titles, and system messages. It is also 
used to introduce new words. 

Enter Special keys on the keyboard you press. The example here 

represents the Enter key. 


Symbol Conventions 


This symbol! 

Identifies 


Instructions for performing special functions. 


Additional information that may be of value. 


Tips or suggestions about using a particular feature. 

Important information you need to know about a feature or 

Gautton^^^ 

procedure. 
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About this Manual 


Related Publications 


For more information^ see the following publications:: 

H&W manuals 

♦ CPMS/SYSD Installation Manual 

♦ CPMS/SYSD Reference Manual 

IBM manuals 

♦ Interactive System Productivity Facility Dialog Developer's Guide and Reference, Version 4 
Release 2 for MVS (GC34-4486)> 

♦ Interactive System Productivity Facility Dialog Management Services (GC34-4021) 

♦ Interactive System. Productivity Facility ISPF Dialog Management Guide,'Version 3 for 
MVS (GG34-4213) 

♦ Interactive System Productivity Facility ISPF Dialog Management Guide and Reference, 
Version s Release 5 for MVS (GG34-4266) 
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Chapter 1 

iMliOduCiiotl’ 


SYSD/JET (Job and File Tailoring) is an option available for both SYSD and CPMS. JFT is 
based on IBM's ISPF Dialog Manager Panel Display capability. Wherever possible, the 
same syntax has been applied to JFT. If you are familiar with ISPF, you will see many 
similarities. JFT lets you:: 

♦ Build panel images. 

♦ Prompt and validate user input. 

♦ Process information from the user by applying it to a skeleton file. 

♦ Submit JGL to the internal reader or save it to an output file. 

This chapter describes: 

♦ JFT's components 

♦ Storing panels, skeletons, and messages 

♦ JFT's variables 

♦ Executing JFT panels 
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Chapter 7 — Introduction 


Components of SYSD/JFT 

JFT applications are built using three different components:: panels, skeletons, and 
messages. This section describes each component 


Panels 

Panels drive all processing in JFT. Typically panels are either menus thatlead to other JFT 
panels or input/output panels that let the user submit jobs (JCL) or update files. Each JFT 
user has a default panel that is executed when he or she selects Option 8, jOb/File 
Tailoring, from GPMS/SYSD's main menu. The default panel is defined on Option 0.3, 
Job/File Tailoring Parameters. This means you can build customiJFT panels for different 
groups and have them go directly to the panel for their specific use. For example, you can 
have payroll users go directly to the payroll JFT panel and developers go directly to a 
system utilities JFT panel. 

The panel defines and assigns all variables, defines the panel layout, accepts and edits 
input from the panel, and performs any output. When developing panels, you control the 
panel's display attributes by defining fields as input, output, or text and by defining the 
fields as highlighted or normal. The panel's )ATTR section defines these attributes..The 
panel's )BODY section defines the way the panel looks whenia user accesses it. The 
panel's )INIT section defines and initializes variables. The panel's )PROC section does all 
the processing each time the user presses Enter or a PFn key. The panel's )PROC section 
also defines all editing for data entered and controls other processing like displaying 
another panel, writing to a file, or submitting a job to the system. 


Skeletons 

Skeleton libraries contain members thatdefine the JCL for submitting a job or the record 
and file layout for updating a file. You use the FILESICEL and SUBSKEL commands in the 
)PR<DC section to access skeleton-libraries. JFT processes these two commands by 
scanning the JFT skeleton-file concatenation.for the member name you specify on the 
command. JFT uses the first library that has a member name that matches. Your SYSD 
administrator defines the library concatenation. 

JFT automatically passes variables from the panel to the skeleton member. JFT substitutes 
the data the user enters on the panel in the skeleton before it writes the skeleton to a file 
or the internal reader. For example, you may have a batch job that uses a date parameter 
to extract data from a master file. You-can set up the JFT panel to ask the user to enter the 
date, pass thatdate to the skeleton member for substitution in the FARM parameter of the 
EXEC JCL statement, and submit the job. 
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Chapter 7 Introduction 


Messages 

Message libraries contain members that define the customized messages JFT uses to 
override the generic default messages provided. For example, if the user enters an invalid 
date, you can have JFT display a customized message that gives the user more specific 
information aboutwhat is wrong with the date. You define these messages and then issue 
them from the JFT panel. 

You can also put JFT variables in your customized messages. JFT replaces the variable 
name with the variable's assigned value before displaying the message on the user's 
terminal. 
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Chapter 1 Introduction 


Storing Panels, Skeletons, and Messages , 

Ptoels, skeletons, and;messages are stored in partitioned datasete (PDSs). You must store 
each panel and skeleton in a separate PDS member. You can store several messages in a 
single PDS member. 

Your SYSD administrator can concatenate panel, skeleton, and message PDSs and have 
JFT search.them using a top down.approach. jPPT searches the first file specihed in the 
concatenation, followed by the second file, and so on until it either reaches the end of the 
concatenation list or finds a matching member name. Your CPMS/SYSD administrator 
determines the order JFT searches the libraries. 

Your SYSD administrator may have set up the system so users can specify the panel, 
skeleton, and message concatenations. This is done by defining the user profile dataset 
variables in the JFT dataset concatenations. If the variables are defined, the user can 
specify the dataset names JFT uses to search for panels, messages, and skeletons on 
Option 0.3, Job/File Tailoring Parameters. This lets the user or programmer dynamically 
change the dataset names. 
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Chapter 1 - Introduction 


Q J FT Variables 

JFT lets you define your own variables in the panel's )B0D¥> )INn; and )PRO(r sections. 
You can also use the system, user piofile, and control variables described in,Chapter 3, 
Variables. You can use any of these variables in the panels, skeletons, or messages. You 
can also pass JFT variables to CICS programs. 


u 
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Chapter 1 — Introduction 


Executing JFT Panels 

Once you have saved a panel in a PDS member, JFT can try to execute it. You: do not have 
to compile it first, JFT reports any errors back to you when you execute the panel. You can 
edit the PDS member, correct the errors, and test the panel again. 


To execute a JFT panel, the user must select Option 8> Job/File Tailoring, from the 
CPMS/SYSD main menu. Once in JFT, the user can execute JFT panels in one of three 
ways: 

♦ Specify the panel as the default panel name on Option 0.3, Job/File Tailoring 
Parameters. This panel is automatically displayed when the user selects Option 8; 

♦ Use the PANEL statement in one panel to call another panel. See the &ZSEL system 
variable on page 21 for more information about calling a panel 

♦ Type EXEG paneli_name in the Jupwf field in JFT and press Enter. To use this option, 
the Execute Any Panel field on Option 0.3, Job/File Tailoring Parameters, must be set 
to Y (Yes). 

The EXEC command is very helpful because you do not have to update the 
^ default panel or test menus before you execute the new panels as you are 

developing them; 
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Chapter 2 

Pane^! Sections 

A SYSD^TFT panel can have up to five different sections. They are:: 

♦ )ATTR - Defines the attribute characters used in the )BODY section. These attribute 
characters define if fields are input, output, or text They also define the intensity of 
the characters when JFT displays the panel: bright, normal, or dark. 

♦ )BODY - Defines the panel's appearance. 

♦ )INIT - Contains the logic statements JFT executes the first time a user accesses the 
panel. 

/ ♦ )PRQG - Contains the logic statements JFT executes each time a user accesses the 

V_ y panel except the first time. 

♦ )END -Marks the end of the panel. 

Option 0.3, Job/File Tailoring Parameters, on the CPMS/SYSD main menu lets you specify 
which panel is displayed when the user first accesses the JFT option. The default is the 
SYSD08 panel. 

This chapter describes each panel section and its parameters. 
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Chapter 2 ~ Panel Sections 


)ATTR Section 

The )ATTR section defines the characters that represent attribute bytes. You use these 
attribute characters in the )BODY section to define the panel's appearance. If you are only 
going to use the default attribute characters, you can omit the )ATTR statement altogether 
The formatof the attribute statement is:: ' 




char TYPECTEXT I INPUT |0UTPUT); INTENS(10W|HIGH |N0N.) 


You cannot continue statements in the )ATTR'section. 


This parameter Specifies 

The 1-byte character that represents the attribute byte. This is 
a special character that is not displayed on the panel when the 
user accesses it However, the attribute character does take up 
a physical space on the panel when JFT displays it 

The type of field this attribute byte generates. 

To define 

A protected text field where JFT displays 
static information like menu options or 
field descriptions. This type of field cannot 
contain variables. 

An unprotected field where users can type 
data. 


Specify 

TEXT 

INPUT 



OUTPUT A protected field where JFT displays the 
values of variables from within JFT. 

INTENS The intensity of the field when JFT displays the panel. 


Specify 

To! define 

LOW 

A normal intensity field. 

HlOH 

A high intensity field. 
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Chapter 2 — Panel Sections 


Specify To define 

NON A field thatis not displayed on the panel. 

For example, you may want to define a 
field where the user types a password and 
not have the characters displayed as the 
user types them. 


For example, if you specify: 


)ATTR 

TYPECINPUT); INTENSCLOWy 
a TYPE(OUTPUT) INTENSCHIGH) 


A field defined in the )BODY section with a not sign (-t) is an input field the user can type 
data in. JFT displays the field at normal intensity. A field defined in the )BODY section 
with an -at sign" (@) is an output field JFT displays variables in. JFT displays the contents 
of the field as highlighted text. 


Default Attribute Characters 

The following are the predefined attribute character defaults:: 


% TYPE(TEXT) INTENSCHIGH) 

+ TYPE(TEXT) INTENS(LOW): 

_ TYPE(INPUT) INTENSCHIGH) 


Ovemding the Default Attribute Characters 

To override the default attribute characters, specify the DEFAULT(charaGters):keyword, 
where characters are the new attribute characters, on the )ATTR statement. 

To only override one default attribute character, you must specify all three attribute 
characters even though only one changes. For example, to change the default percent 
sign (%) to a pound sign (#), specify; 


)ATTR D€FAULT(#+_) 


If you do not need to change the default attribute characters, do not specify the DEFAUIT 
keyword on the )ATTR statement. 
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Chapter 2 - Panel Sections 


)BODY Section 

The )B©DY section defines how a panel looks when JFT displays iL The following syntax 
rules apply to the )BODY section:: 



♦ The first three lines of the panel are fixed. The first line contains the panel title, time, 
and partition ID. The second line contains the JnpMf field where the user enters 
commands and the Scroll field where the user defines the type of scrolling 
performed. The third line is where JFT displays the long system messages. 

♦ The )BODY section defines lines 4 through 24 on the panel. A panel cannot have 
more than 21 lines. (MOD2 support only) 

♦ If there is a blank line in the )BODY section, JFT displays a blank line on the panel. If 
you do not use all 21 lines, you do not have to add blank lines at the end of the 
)BODY section. 

♦ Each line must begin with an attribute character, but the attribute character does not 
have to be in column 1. 

♦ The attribute character defines the beginning of a field on the panel. The next 

attribute character or the end of the line defines the end of the field. The length of 
the field is the number of bytes between the attribute characters or between the 
beginning attribute character and the end of the line. / 

♦ If the field is defined as TYPE(TEXT), JFT displays all the characters in the field on 
the panel. 

♦ If the field is defined as either TYPE{INPUT) or TYPE(OIiJTPUT), you must specify a 
variable name following the attribute character. A variable name that follows a 
TYPE(INPIJT) or TYPE(OUTPUT) attribute must not include the ampersand (&); an 
ampersand is implied. 

♦ Comments are not allowed in the )BGDY section. 


Example 


)ATTR 

^ TYPE(OUTPUT) INTENS(HIGH) 
XBODY 

%Enter Values to SUBMIT a Job;% 

%Jobname:_JOBN % 

%Your Job Name wi ll ber-iJOBN 
)END 


! ! 


TO 
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Chapter 2 — Panel Sections' 


This example generates the following panel:: 

9:04:58 --^-— panel title- (1/1) 

INPUT ===> SCROLL: CSR 

Enter Values to SUBMIT a Job: 

Jobname: 

Your Job Name will be: 


This panel has; 

♦ A protected text field beginning in column 2 of row 5 that displays Enter Values to 
SUBMIT a Job: in highlighted characters. 

♦ A protected text field beginning in column 10 of row 7 that displays Jobname: in 
highlighted text. 

♦ An 8-byte input field beginning in column 19 of row 7. The user types the job name 
in this field. JFT assigns the value the user types in this input field to the JOBN 
variable. 

♦ A protected text field beginning in column 2 of row 9 that displays Your Job Name will 
be: in highlighted text. 

♦ A 55-byte output, field beginning in column 25 of row 9. There is no ending attribute 
character so the end of the output field is the end of the line. JFT displays the value 
of the JOBN variable in this field. 
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Chapter 2 ~ Panel Sections 


)INIT Section 

The )IMT section is optional. It defines the logic JFT only executes the first time a user 
accesses the panel. When returning to a previous panel, JFT executes the )INIT section for 
the previous panel because JFT considers it a first-time access. There are no parameters on 
the )INIT statement. 

The most common use of the )INIT section is to declare and initialize variables. This is 
useful when you set default values for the user. You can also include logic statements in 
the )INIT section to conditionally set variable values. See Chapter 4, Logic Statements, for 
more information about the statements you can use in the )INIT section^ 


Example 


)ATTR 

TYPE(OUTPUT), INTENSCHIGH) 
)B0DY 

%Enter Values to SUBMIT a Job:% 
%Jobname:_JOBN % 
%Your Job Name will be:-,JOBN 
>INIT 

.SYSDTTL = 'JFT EXAMPLE' 

&J0BN = JFTJOB 

TEND 
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Chapter 2 ~ Panel Sections 



This example generates the following panel:: 



Note what the )INIT section has done: 

♦ The .SYSDTTL control variable defines the panel title as /FT Example. JFT centers the 
title on the first line of the panel 

♦ The Jobname: field now contains the default value assigned to the &JOBN variable in 
the )INIT section. 

♦ JFT also displays the value of the &:JOBN variable in the Your Job Name will be: field. 

The user can change the &JOBN variable by typing a new job name in the Jobname field. 
When the user presses Enters JFT changes the value displayed in the Your Job Name willbe: 
field to the value the user typed. 
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Chapter 2 ~ Panel Sections 


)PROC Section 

The )PR€)C section is optional. It defines the logic JFT executes every time a user accesses 
the panel except the first time. There are no parameters on the )PM)C statement. 

The )PROC section is where you do most of the programming in JPT You can assign 
values to variables, test conditions, execute other panels, submit JCL to the operating 
system, or write records to files. An advanced feature of JFT lets you link to a €ieS 
program and perform additional processing. This is done using the LINK statement. 

See Chapter 4, Logic Statements, for more information about the statements you can use 
in the )PROC section. 


Example 


)ATTR 

TYPE (OUTPUT) INTENS(HIGH) 

)B0DY 

%Enter Values to SUBMIT a 

Job::% 

%Jobname:_JOBN 

% 

%Your Job Name will be:-.VALJOBN 

)IN.IT 

.SYSDTTL = 'JFT EXAMPLE' 
&J0BN = JFTJOB 


)PR0C 

&VALJOBN = '*ERROR*' 

VER (&J0BN,,NAME) 

IF (.MSG = &Z) 

&VALJOBN = &JOBN 
SUBSKEL (&J0BN.) 

).END 

/^Assume Job Name invalid*/ 

/*Check that Job Name is a valid member name*/ 

/*If no Error messages*/ 

/*Mbve Job Name to a valid field*/ 


Note what the )PROG section does: 

♦ The )PROG section starts with an assignment statement that assigns the value 
* ERROR* to the &VALJOBN variable. 

♦ The )PR€)C section shows how you can add comments that explain what each 
statement is doing. All text following the /* is a comment. 

♦ The VER (&JOBN,NAME) statement checks to make sure the job name the user 
enters is a valid member name. The VER statement lets you easily validate common 
field formats, including: 

• non-blank (must be entered) 
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• alphabetic 

• numeric 

• hexadecimal 
. PICTURE 

• member name 

• dataset name 

• range 

• list 


♦ The next statement is an IF structure. JFT checks the .MSG control variable to see if 
an error was found. The &Z system variable tests the .MSG variable to see if itis 
empty or contains null values. So the IF statementsays thatif the .MSG control 
variable is empty, no errors were found. 

If the IF statement is false, which means the member name is invalid, JFT executes 
the statement beginning in the column that is less than or equal to the IF statement 
column. In this case, JFT executes the )END statement 

If the IF statement is true, which means the member name is valid, JFT executes the 
line right after the IF statement In this case, JFT executes the assignment statement, 
which assigns the value of the &JOBN variable to the &VALJOBN variable. 

♦ Assume the operator enters JFTEXMPL as the job name. If the entered name is valid,, 
the SUBSKEL statement tells JFT to submit the skeleton JGL member identified by 
the JOBN variable. JFT does this by looking for a member in the JFT skeleton library 
concatenation called JFTEXMPL. If JFT finds a matching member, it substitutes any 
variables found and then submits the JGL to the operating system. The following is 
an example of what the panel looks like after a user enters a valid job name of 
JFTEXMPL: 

?;04:58..JFT EXAMPLE.- - - . .(1/1) 

input ===> 

Jobs have been submitted. 

Enter Values to SUBMIT a JOB 

Jobname:: JFTEXMPL 


ffour Job Name will be: JFTEXMPL 
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Chapter 2 Panel Sections 


V ^ jk iiB~k g-^ g_r 

/tiNU Section 

The )END section defines the end of the panel, JFT ignores anything following the )ENE) 
statement There are no parameters on the )END statement 
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Chapter 3 

Variables 


O 


This chapter describes the variables you can use in the )INIX )PROC, and )B0DY sections. 

There are four types of variables:: 

♦ System variables provide information from the system, like the date, time, and data 
entered in the Input field. 

♦ Profile variables provide access to the information stored in the CPMS/SYSD user 
file. You can get information from the file, like the user ID or default printer, and use 
it inJFT processing. 

♦ Control variables let you change the message and cursor position during processing. 
You typically use these variables to override the defaults for these functions. You can 
also use a control variable to define the panel title. 

♦ User variables store values during JFT execution. You define these variables and can 
change them during processing. 
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Chapter 3 — Variables 


System Variables 


System variables provide information from the system, like the date, time, and data 
entered in the Input field. System variables begin with the letter Z. You can also update 
the &:ZSEL variable to control JFT processing. 




&z 

The &Z system variable contains a null or blank string. You can use the &Z variable to 
initialize another variable or use it in an IF statement to do a comparison; 


&ZCMD 


The &:ZGMD system variable contains the characters the user typed in the Jnpwf field. 


&ZCSR 

The &ZGSR system variable contains the cursor position of the Input field in rrcGC format, 
where rr is the row and ccc is the column. 

&ZDATE 

The &ZDATE system variable contains the 8-character date in yy/mm/dd format. 



&ZDATESTD 


The &ZDATESTD system variable contains the 8-digit date in yyyymmddTormat. 


&ZDAY 


The &ZDAY system variable contains the 2-digit day of the month in dd format 


The &ZJDATE system variable contains the b-character Julian date in yy.ddd format 
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RtZldDATF 


The &ZJ4DATE system variable contains the 8-character Julian date in yyyy.ddd format 


&ZMONTH 


The &ZMONTH system variable contains the 2-digit month in mmi format. 


&ZSEL 


You can use the assignment statement to set the &ZSEL system variable. If you set &:ZSEL 
in the )PROC section, SYSD/JFT invokes a new panel when itis done processing the 
)PROG section. The syntax of the &:ZSEL variable is: 


&ZSEL = PANEL(panel_name) 


For example: 


&ZSEL *= TRANS(TRUNC(&ZCMD,1),1,'PANEL(TESTP1>',2,'PANEL(TESTP2)') 


This example shows how you can use logic statements on the right side of an.assignment 
statement. If the user selects Option 1, JFT assigns PANEL(TESTPI ) to &ZSEL. JFT sends 
the user to another panel from a menu panel that contains two options. 


&ZSTDYEAR 


The &ZSTDYEAR system variable contains the 4-digit current year in yyyy format. 


&ZTIME 


The &ZTIME system variable contains the 5-character time in hh:mmiformat. 


&ZYEAR 


The &ZYEAR system variable contains the 2-digit year in yy format. 
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Profile Variables 


Profile variables let you access the information stored in the CPMS/SYSD user file. You 
can get information, like the user ID and default printer, and use it in JFT processing. 
Profile variables begin with a dollar sign ($). The following are some of the most 
commonly used profile variables. See Appendix A, GPMS/SYSD Menu System Variables, 
for a list of additional profile variables. 


&$DEPART 

The&$DEPART profile variable contains the user's 1- to 29-character department name. 


&$DESTID 

The &$DESTID profile variable contains the output destination ID from Option 0.1, 
JESA^ist Parameter Destinations. The length of this variable is 10. You can use the 
&$DESTnD profile variable to substitute a destination ID in the JCL output parameter. 


&$NAME 

The &$NAME profile variable contains the user's 1- to 29-character name. 

&$TITLE 

The &$TITLE profile variable contains the user's 1- to 29-character title. 

&$USER 

The &$USER profile variable contains the user's 1- to 11-character user IDi 
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o Control Variables 

Control variables let you change the message and cursor position during processing. You 
typically use these variables to override the defaults for these functions. You can also use 
control variables to define the panel title and set the .TRAIL variable with the remainder 
of a TRUNC function. Control variables begin with a period (.), 


CURSOR 

You can set the .CURSOR control variable to a variable_name without the ampersand.(&). 
This positions the cursor in the field associated with variable_name. You can also use 
.CURSOR to set the cursor to the field on a VERstatement that fails its test. 


If the cursor position has been previously set, .CURSOR does not set the 
cursor position. To reset the cursor position, you must use the .CURSORE 
control variable. 

For example, if you specify: 




CURSOR = FNAME 


JFT positions the cursor in the FNAME field when it displays the panel. The default 
position is the Input field., 


.CURSORF 

The .CURSORF control variable provides the same functions as the .CURSORcontrol 
variable except .GUI^ORF overrides any previous positioning of the cursor. Bfe careful 
when you use .CURSORF to set the cursor position so you do not accidentally override a 
cursor position. 


.CURSORF = FNAME 


.MSG 


You can set the .MSG control variable to any message ID: JFT displays the long message 
associated with the message ID: You can also use .MSG to display a specific message ID 
when a VERNStatementfails its test. 



If the message ID has been previously set, .MSG does not reset the message 
ID: To reset the message ID, you must use the .MSGF control variable. 
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For example, if you specify: 



JFT displays the text associated with MSGOOl. 

MSGF 


The .MSGF control variable provides the same functions as the .MSG control variable 
except .MSGF overrides any previous setting of the message ID^Be careful when you use 
.MSGF to set the message ID so you do not accidentally override a message. 



.SYSDTTL 


The .SYSDTTL control variable defines the panel title. You use the assignment statement 
to set the .SYSDTTL control variable. For example, if you specify: I 



JFT centers JFT Main Menu on the first line of the panel.. 

.TRAIL 

JFT sets the value of the .TRAIL control variable as a result of a TRUNG statement. The 
.TRAIL variable contains the characters left over from the last TRUNG statement 
performed. 

For example, if you specify: 

&TEMP = ABCDEF 
&TEMP1 = TRUNC(&TEMP,1) 

JFT assigns the value A to the &TEMP1 variable and assigns the value BGDER to ”he 
.TRAIL variable. See the TRUNG statement on page 40 for more information. 
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User Variables 

User variables are variables you define. You can assign values to them and; change the 
values during JIFT execution. In the )INIT and )PRC)C sections, user variables mustbegin 
with an ampersand (&). hvthe )BODY section, user variables must not begin with an 
ampersand; the ampersand is implied^ User variable names must be between l and 8 
characters long. 


Do not begin a user variable name with a dollar sign ($), the letter Z, or a period. (.) because 
these characters identify system, profile, or control variables. 
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Logic SLaLemeMs 


Logic statements control the processing that occurs when a user accesses a panel. You can 
specify logic statements in both the )INIT and )PROG sections. This chapter describes the 
syntax rules for all the logic statements and the syntax for each one. 
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Syntax Rules 

Logic statements must follow these syntax rules:: 

♦ A /* means the rest of the line is a comment. You can specify an */ at the end of the 
comment, but it is not required. 

♦ You can continue parameters on the next line if they follow the endi of a parameter. 
For example: 


VER C&TEST.NB.LIST, 
1 temi, 
item2) 


♦ You can continue quoted strings by specifying a plus sign (+) as the last character of 
the line. The continuation line starts at the first non-blank character.,For example, if 
you specify: 


&TEST = 'THIS IS LINE1 + 
AND THIS IS LINE2' 


JFT assigns the value of THIS IS LINEIi AND-THIS IS LINE2 to the &TEST variable. 
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U Assignment Statement 

The assignment statement evaluates an expression and assigns the value of the expression 
to a variable. The syntax of the assignment statement is: 


variable! = variable2|literal|'literal'|function 


This parameter! Specifies 



variabiel 


variiable2 


literal 


literal! 


function 


A variable name preceded by an ampersand (&). The equal 
sign (=) must follow the variable name. JFT assigns the 
value of the expression on the right side of the equal sign to 
this variable. 

A variable name preceded by an ampersand (&). JFT 
assigns the value of this variable to variabiel. 

A literal you want to assign to variabiel. 

A literal containing substitutable variables. JFT assigns this 
literal to variabiel. See "Goncatenation Riiles" for more 
information about specifying variables in a literal. 

A TRANS or TRUNG logic statement See the TRANS 
statement on page 38 and the TRUNG statement on page 
40 for more information about their parameters. 



Concatenation Rules 

The following concatenation rules apply to assignment statements:: 

♦ A double ampersand {&&) represents a single ampersand (&). A single ampersand 
(&) followed by a blank also represents a single ampersand (&). 

♦ User variable names must begin with an ampersand (&). Variable names are 
delimited by any non-alphanumeric character. 

♦ JFT ignores trailing blanks when doing a substitution. 

♦ For an apostrophe or a quote within a quote, use two apostrophes (") or quotes ("") 
to represent a single apostrophe (') or quote ("). 
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* A single period (.) following a variable name ondhe right side of an equal sign 
concatenates the character string following the variable name with the variable. Two 
periods (..) following a variable name represent a single period (.). For example, if 
you specify: 


&CITY = BOISE 
&ADDR = '&CITY. ID' 


JFT assigns BOISE ID to the &ADDR variable. 



If you specify a period as part of a literal string, you only have to specify 
one period to represent a single period. 


Examples 

The following are several examples of the assignment statement. 

Example 1 


&FNAME = JODY 


JFT assigns the value JODY to the &FNAME variable. 


Example 2 


&LNAME = LANTZ 


JFT assigns the value LANTZ to the &LNAME variable. 


Exa mple 3 


&LNAME2 = &LNAME 


JFT assigns the value of the &LNAME variable to the &LNAME2 variable. If JFT executed 
the assignmentstatement from.Example 2 before this statement, JFT assigns the value 
LANTZ to the &LNAME2 variable. . 
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Example 4 


&MNAME = "M*' 


JFT assigns the value M to the &MNAME variable. The apostrophes are optional. 


Exa mple 5 


&LNAME = LANTZ 
&FNAME = JODY 
&MNAME = M 

&FULLNAME = '&LNAME,, &FNAME &MNAME..'' 


JFT assigns the value LANTZ, JODY to the &FULLNAME variable. 


The two periods at the end of the last assignment statement result in only 
one period after the middle initial. If a period follows a variable name, JFT 
requires two periods to represent one period. 

Example 6 



&LNAME = LANTZ 

&LNAMEF3B = TRUNCC&LNAME,3) 


JFT assigns the value LAN to the &LNAMEF3B variable. JFT assigns the rest of the 
characters, which are TZ, to the .TRAIL control variable. 


Reference Manual 


31 






Chapter 4 ~ Logic Statements 


FILESKEL Statement 

The FITESKBL statement saves a member in a dataset using a skeleton member as a 
model. The syntax of the FILESKEL statement is;: 


FILESKEL(i)SN(variable_name|literal),NAME(varfable_name|literal), 
SKEL(Variable_name| literal),VOL(variable name literal), 
REPLjNOREPL|MOO) 


This parameter Specifies 

dsn The name of the dataset you want to save the member in. 

You can specify either a literal or a variable name preceded 
by an ampersand (&). 

name The member name if the value of the DSN parameter is a 

PDS. You can specify either a literal or a variable name 
preceded by an ampersand (&). For a sequential dataset, 
the member name is optional. 

SKBL The member name of the skeleton file you want to use as a 

model You can specify either a literal or a variable name 
preceded by an ampersand (&). 

VOE The volume serial number where the dataset resides. This 

parameter is optional. You can specify either a literal or a 
variable name preceded by an ampersand (&). 

REPE Replace the member in the dataset if it already exists. This 

is the default 

NORERE Terminate the save if the member already exists in the 

dataset 


Add the data specified by the FILESKEL parameters to the 
end of the dataset JFT writes. This parameter only supports 
sequential datasets. , 
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Example 1 


FILESKEL(DSNC&H0LDDSN),NAME(MEMBER1),SKEL(SSKELMEM);) 


JBT saves the member called MEMBERl in the dataset specified by the &HOLDDSN 
variable using the skeleton member specified by the &SICELMEM variable. 


Example 2 


FILESKEL(t)SN(XYZ.ABC),NAME(MEMBER2),SKEL(MEMlO),NOREPL) 


If MEMBER2 does not already exist, JFT saves the member called MEMB1R2 in the 
dataset called XYZ.ABC using the skeleton member called IvIEMlO, 


Example 3 


FILESKEL(DSN<JFT.TXN.FILE),SKEL(EMPREC),MOD) 


The skeleton member EMPREC defines the record layout. JFT adds records to the end of 
the file called JFT.TXN.FILE using the layout defined in EMPREC 
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IF Statement 

The IF statement evaluates an expression and, depending on if the expression is true or 
false, executes a statement or group of statements* The syntax of the IF statementds:: 


IF {operand! operator operand2): 


The parameter! Specifies 

operands A user variable name preceded by an ampersand (<&) or a 

control, system, or profile variable. 


operator 


The operator JFT uses to compare the values of operand 1 
and operand2. Valid operators are: 


GT 

GE 

LT 

LE 


operand2 


A user, control, system, or profile variable name or a list of 
literals. 


When used with IF statements, logic statements are sensitive to their column position. If 
the condition of an IF statement is true, JFT executes the next statement after the IF 
statement. If the IF statement is false, JFT executes the next statement that has a column 
position less than or equal to the column position of the IF statement. 


Example 7 


IFC&C0ND1 = &C0MD2) 
STM1 
STM2 
STMS 


If the condition in the IF(&GONDl = &GOND2) statementis true, JFT executes STMl, 
STM2, and STM3. If the condition is false, JFT only executes STM3 because it has a 
column position (column 1) that is less than or equal to the IP(&GO]SnDl = &C(DN1D2) 
statement (column 1). 
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Example 2 


IF(&C0ND1 = &C0ND2): 
IF(&C0ND3 = YES,,N03 
STM1 
STM2 
STM3- 
STM4 


If the condition in the IF(&CONDl = &GOND2) statement is true, JiT executes the next 
IF statement. If the condition is false, JFT only executes STM4 because it has a column 
position (column 1) that is less than or equal to the column position of the IF(&€(DND1 = 
&COND2) statement (column 1). 


If the IF(&COND3 = YES,NO) statement is true, which also means the Ii(&GONIDl = 
&COND2) statement was true, JFT executes STMl, STM2, STM3, and STM4. If the 
condition is false, JFT only executes STM2, STM3, and STM4'because STM2 has a column 
position (column 3) that is less than or equal to the column position of the IF(GOND3 = 
YES,NO) statement (column 3). 
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LINK Statement 

The LINK statement links fromithe JFT panel to a CICS program. The syntax of the LINK 
statement is: 


LINKCPGM(;van‘abLe__naine| literal)) 


This parameter Specifies 

variablfe_name A variable name preceded by an ampersand (&). The value of 
the variable must be the name of the CICS program you want 
JFT to link to., 

The name of the CIGS program you want JFT to link to., 


A GOMMAREA is not passed. If you need to communicate between the JFT 
panel and the GIGS program, use the $GMVGET and $GMVPUT macros. 
See "Gommunicating Betu^een Panels and GIGS Ptograms" on page 54 for 
more information. 


LINKCPGMC&PGMLINK))', I 


literal 


Note \ 


Example T 


JFT links to the GIGS program name specified as the value of the &PGMLINK variable. 


Example 2 


LINK<PGM(CICSPGM)) 


JFT links to the CIGS program called GIGSPGM* 
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SUBSKEL Statement 

The SUBSKEL statement submits a skeleton member to the internal reader. The syntax of 
the SUBSICEL statement is: 

SUBSKEL(van'abte_name| I i teral) 

This parameter Specifies 

var!iab!e_name A variable name preceded by an ampersand (&). The value of 
the variable must be the name of the skeleton member you 
want JFT to submit to the internal reader. 

literal! The name of the skeletonmember you want JFT to submibto 

the interna] reader. 

reader. 


Example 1 

SUBSKELC&SKELNM) 

JFT submits the skeleton member specified as the value of the &SKELNM variable. 

Example 2 

SUBSKEL(MEMBERI) 

JFT submits the skeleton member called MEMBERl ., 



JFT uses the SYSD DCT entry to submit the JCL to the ir 
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TRANS Statement 


The TRANS statement compares a variable to a value and assigns a corresponding value 
to another variable. The TRANS statement is used in an assignment statement. The syntax 
of the TRANS statement is:: 


resuLt=TRANS{Variable_name,value,new_value,,...,value,new_valu©) 


Tfi/s parameter 
variiable_name 

value 

new_value 

result 


Specifies 

A variable name preceded by an ampersand (&). This 
parameter must be specified first. 

The value you want to compare variable_name to. 

The value you want to assign to the result variable. 

The variable the new value will be assigned to. 


The parameters that follow variable_name mwsf be paired values. If you specify value, you 
must also specify new_value. 

JFT compares variable_name to each value; If the two values are equal, JFT assigns 
new_value to result; 

An "anything else" condition occurs if variable_name does notmatch any of the value 
values. You can define an "anything else" condition by specifying an asterisk {'*') for 
value in the last set of paired values. If you also specify for new__valUe, JFT stores the 

variable being assigned untranslated. If you do not specify for new_valUe, JFT stores 
the value as specified. 


Example 1 


MBC = TRANS(&DEF, V,0NE,2„TW0,,3,THREE, ' NONE) 


If &DEF contains 2, &ABC contains TWO. If &DEF contains a blank, &ABC contains a 
blank. If &:DEF contains 5^ &ABC contains NONE. 
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Example 2 


&ABC = TRANS(&DEF,,1,pNE,2,,,TW0,3„THREE,,,' 


Everything in Example 1 is also true for this example, except if &DBF contains 5, &ABC 
contains 5.. 
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TRUNC Statement 

The TRUNC statement truncates a variable at a specific position or character. The syntax 
of the TRUNC statement is: 


TRUNC{variabIe_name column(character): 


This parameter Specifies 


varlable__name A variable name preceded by an ampersand (&), This 
parameter must be specified first 


coliimni The column position where you want to truncate the variable. 

character The character where you want the variable truncated. The 

truncation occurs where this character appears first in the 
variable. 


After JFT truncates variable_name, it assigns any remaining characters to the .TRAIL 
control variable. If you truncate variable_name based on column position, JFT assigns the 
rest of the characters to .TRAIL. If you truncate variable_name based on a character, JFT 
assigns all the characters after the truncation character to .TRAIL and drops the truncate 
character. 


Example 1 


&ABC = TRUNC<&DEF,,8) 


Assume &DEF contains ABCDE:GHIJL After JFT executes the assignment statement, &ABG 
contains ABGDE:GH, &DEF does not change, and .TRAIL contains IJ; 


Example 2 


MBC = TRUNC(&DEF, ' 


Assume &DEF contains ABGDErGHIJi After JFT executes the assignment statement &:ABG 
contains ABGDE, &DEF does not change, and .TRAIL contains GHIJi JFT drops the 
character you specified as the truncate character, which in this example is a colon (:). 
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Example 3 

The TRUNC command can be used to parse a string. For example:; 


&FULLNAME 

&FNAME 

&TEMP 

&INITIAL 

&LNAME 


JODY M., LANTZ 
TRUNCC&FULLNAME,' ') 
.TRAIL 

TRUNC{&TEMP,' ') 
.TRAIL 


The first assignment statement assigns JODY M. LANTZ to the fePULllNAME variable. 
The second statement assigns JODY to the &:FNAME variable and assigns LANTZ to 
the .TRAIL control variable. The third statement assigns the value of the .TRAIL control 
variable, which is now M. LANTZ, to the &TEMP variable. The fourth statement assigns 
M. to the &INITIAL variable. The last statement assigns LANTZ to the &LNAME variable, 
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VER Statement 

The VER? statement verifies the value of a variable. The syntax of the VER statement is: 
VER(Yariable_name,,NB,,functibn,parameters,MSG=message_fd); 


Wis pammeteri Specifies 

variablfe_name The variable name you want to verify. 

N B The value of the variable name cannot be blank. If specified, 

NB must follow variablfe_name; You can use this parameter 
with all: the functions of the VER statement. 

function! The type of information variiable_name can contain. 

parameters One or more values JFT uses to verify variablfe_name; 

message_ld' The ID of the message you want to display if the VER 

statement fails its test. This parameter must be the last item on 

the list. , 

The following sections describe the syntax for the functions of the VER statement. 

The NB parameter has the highest priority in a VER statement If the NB parameter is not 
specified^ the variable can have a blank or empty value regardless of the type of verification 
being done. 



VER ALPHA 



The varlablte_name must be alphabetic. 
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( J VER BIT 

V£R(variabie_name BIT) 

The var!iabl6__name must only contain Os oris. 

VER DSNAME 

VER(variable_name DSNAME) 

The variiable_name must be a valid dataset name. All dataset qualifiers must begin with 
an alphabetic character and must be between 1 and 8 characters long. 

VER HEX 

VER(Variable_name HEX) 

i : 

The var[iable_name must contain hexadecimal numbers (0-9, A-F). 


VER LIST 


VERCvariable_name LIST valueT,. valueZ, value3 _) 


The variab[te_name must be equal to one of the listed values. 


VER NAME 


VERCvariabIe_nanie NAME): 


The variable_name must be a valid member name. You can spedfy numeric characters, 
but the first character must be alphabetic. The length of the name mustbe at least 1 
character and not more than 8 characters. 
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VER N B 


VERCvariable_name NB) 





The variable_name must not be blank. 



Youican use NB with all the functions of theA^Rstatement If NB is 
specified, it must follow the variablfe_name. 


VER N UM 


VERCvariable_name NUM): 


The variable_name must be numeric (0-9). 


VER PICT 

VER(variable_name PICT 'picture string') 

The variiablb_name must match the corresponding type of character in/picture string^ 
Valid 'picture string' characters are: 

This character Specifies 

C Any character. 

A Any alphabetic character {A-Z, #, $/ @). 

N Any numeric character (0-9). 

9’ Any numeric character (0-9). 

X Any hex character (0-9, A-F)., 



Any other character represents itself. 
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( j VER RANGE 



The variable_name must be within the range of the two numbers specified. 
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Skeleton and Message Files 


JFT panels can access skeleton and message files to perform additional tasks. Skeleton 
files contain models or skeleton JCL members JFT can submit Skeleton files can also 
contain model or skeleton record layouts JFT can use to update sequential files or PDS 
members. Message files contain messages of up to 80 characters JFT can display on the 
panel. 
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Skeleton Files 


Skeleton files are PDS members or sequential files thatcontain skeletonJCE, control 
statements, or other data that require changing before they are saved to disk or submitted. 

JFT retrieves the skeleton based on the dataset or member name specified in a FIILESKEL 
or SUBSKEL statement. P^T scans records within the skeleton for variable names that are 
indicated by an ampersand (&). , Any variables names that are found-are replaced by the 
contents of the variable. Updated records that are blank after the subsitution are not 
written. The updated file is either saved to disk (FILESKEL) or submitted (SUBSKEE). 

You can add control statements in a skeleton to help control the file-tailoring process. A 
control statement consists of a control character followed by a ke)rword. The control 
character mustbe in column 1 followed immediately by the keyword. If JFT does not 
recognize the keyword, it considers the line to be a comment. If the control character is 
followed by a blank, JFT considers the line to be a control statement. 


Control Statements 


)BUNK 

The )BLANK statement inserts a specific number of blank lines in the output skeleton file. 
The syntax of the BLANK statement is: 


)BLANK nn|&van‘able_ 

name 

This parameter 

Specifies 

nni 

The number of blank lines you want to insert. The default is T. 

If you specify a number greater than 99, the defaultis 99i 

&variablb_name 

A variable name. The value of the variable must be the 
number of blank lines you want to insert. 


The )CM statement is treated as a comment and ignored. The syntax of the CM statement 
is: 

)CM 
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)^DEFAUU 

The )DEFAULT statement changes the default control character, which is a right 
parenthesis, to a different character. For example, if you specify; 



JFT changes the default control character to a pound sign (#), All control statements that 
follow the )DEFAULT statement must start in column 1 and begin with a pound sign (#) 


The )IM statement copies in the contents of a member from the skeleton library 
concatenation. If you specify a variable name, the contents of the variable must be a 
member name. The syntax of the )IM statement is: 

):IM member_name|&variable_name OPT NT 

( 1 

This parameter Specifies 

member_name The name of the member you want JFT to copy. 

&variablfe_name The name of a variable. The value of the variable must be the 
name of the member you want JFT to copy. 

OPT Ignore the error and continue processing if JFT does not find 

the member. This parameter is optional. 

NT Copy the member. This parameter is optional. If this 

parameter is specified, JFT does not perform any file tailoring. 


The )TB statement sets tabs for the output in a skeleton file. This statement is useful for 
positioning data in a certain column of a record. The syntax of the )TB: statementik: 



\ / 
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This pammetert 


collimni 


Specifies 

The position in the record where you want to set the tab. 


The tab is absolute. This option must immediately follow the 
column number. 


Example 1 

Assume the following )TB statement is in the skeleton file: 


>TB 16A 57 
&FNAME! &LNAME! &M1 


The exclamation point (!) is the tab character. It tells JFT to tab before inserting the field. 
As JFT moves data into the outputarea during file tailoring, it keeps track of where the 
data is to be positioned. 

Assume the following input values:: 


&FNAME = DOM 
&LNAME = DAHL 
&M1 = J 


If you had not specified tabs in the skeleton file, the result would be: 


-+--+- 2 -+- 3 -*'-+- 4 -+- 5 -+- 6 -+- 7 - 

DOMDAHLJ 


Since you did specify tabs in the skeleton file, the result would be:: 


_ 


. -+_- 


• -T .- - 


* . A . . 






DOM 


DAHL 




H • • 


' -3 *■ " 

"“" •O"“ 

J 


--7-- 


The word Don starts in column 1, the word Dahl starts in column 16, and the initial J starts 
in column 57. 
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Example 2 

Each time JFT finds an exclamation point (!), it advances to the nexttab marker from; the 
currentoutputmarker. If the currentoutputmarkeris pointing at a tab, JET jumps to the 
nexttab unless theabsoiute (A) option is placed on the tab the output marker is pointing 
to. 

Assume the following )TB statement is in the skeleton file:: 


)TB 10A 57A 
SfNAME! &LNAME! &MI 


Assume the following input values: 


&FNAME = ELIZABETH 
&LNAME = HARTE 
&HI = A 


JFT puts the value of the &FNAME variable beginning in column 1. 



-+-1-+-2-+- 3---- +-4-+-5-+-6r--- +- 7-- 

ELIZABETH 


The output marker is now at position 10, The next instruction to JFT is to tab. Since the 
example has an absolute tab in column 10, JFT puts the value of the &LNAME variable 
beginning in column 10. The next instruction to JFT is to tab. JFT puts the value of the 
&MI variable in column 57. The result would be: 


-+- 1 -+- 2 -+- 3 -+- 4 -+- 5 -+- 6 -+- 7 -- 

ELIZABETHHARTE A 


If you had not specified the A option for the column 10 tab in the skeleton file, the result 
wouldbe: 





- -7- - 


- - A - - 


- -s?- - 


- - 7- - 

_^_ 

ELIZABETH 








HARTEA 

f 


Since no additional tabs were defined in the skeleton, JFT puts the value of the &MI; 
variable immediately after the value of the RENAME variable. 
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Message Files 

Message files contain message members. Message members contain messages of up to 80 
characters. You can have JFT display these messages on the panel. 

The member name consists of the message IlD through the second digit. For example, if 
you specify a message ID'of XYZ001A, JFT searches for a message member name of XYZOOl 

A message ID can be 4 to 8 characters long. The first 1 to 5 characters must be a valid 
member name. The rest of the characters, up to the maximumuf 8, can he alphanumeric. 
For example, ABOO; AB001A, and ABGDE002 are valid message IDs. 

Every message member contains at least two lines. The firet line is the message ID 
beginning in column 1, The second line is the long message. You can enclose the message 
with apostrophes, but the apostrophes are not required. The message can contain 
variables. JFT replaces any variables in the message with their values. The following are 
examples of messages in the PDS member called XYZOOt 


XYZOOIA 

'User must specify the correct value..' 
XYZ002 

The number '&NUM' is not valid. 


To have JFT display these messages on the panel, use the following panel statements: 


.MSG = message_id 

.MSGF = message_id 

VER (&FIELD,NB,MSG=message_id)' 


See the .MSG control variable on page 23, the .MSGF control variable on page 24, and the 
VER statement on page 42 for more information. 
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Cal:ling CICS Programs 


This chapter explains how to call GIGS programs from JFT panels. It also discusses how 
access and update JFT variables from a GIGS program. 
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Communicating Between Panels and CICS 
Programs 

After the JFT LINK statement performs an EXEC CICS LINK command, the variables the 
JET panel uses may need to be read and updated. JFT variables are managed by the 
CPMS/SYSD conversational manager and can only be updated using the $CMVGET and 
iCMVPUT macros. The $CMVGET macro reads the JFT variables into storage and the 
$CMVPUT macro updates the JFT variables. You must use the $GMWGET and $GMYPUT 
macros with Assembler in a SYSD-type program. 


$CMVGET 


The $CMVGET macro reads the JFT variables the program needs into storage. The syntax 
of the $CMVGET macro is: 


SCMVGET (variable_name,length,,localion) 


This parameter Specifies 

variable_name The 8-byte variable name you want the SCMVGET macro to 
read. The variable name cannot include an ampersand (&). If 
the variable name is less than 8 bytes, it must be padded with 
blanks. 


You can specify either a data name that points to a variable 
name or the variable name itself enclosed with apostrophes. 

JsngtHi The length of the variable. You can specify either a literal 

number or a number contained in a register. 

iocationi Where you want the $CMVGET macro to put the contents of 

the variable. You can specify either the data name of a location 
in memory or an actual address specified in a register. 


Examples 


$CMVGET ('NAME ',21,SAVENAHE) 
SCMVGET (SAMPKYWD,(1R2),(R4)) 
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$CMVPUT 

The $CMVPUT macro updates JET variables..The syntax of the SCMVPUT macro is: 
ICMVPUT Cvarf able_name, length, location,,' F' ) 


This parameter Specifies 

varilablfe_name The 8-byte variable name you want the $GMVPUT macro to 

update. The variable name must not include an ampersand (&). 
If the variable name is less than 8 bytes, it must be padded with 
blanks. 


You can specify either a data name that points to a variable 
name or the variable name itself enclosed with apostrophes. 


length] The length of the variable. You can specify either a number or a 

number contained in a register. 

location! Where you want the $CMVPUT macro to get the variable from. 

You can specify either the data name of a location in memory or 
an actual address specified in a register. 

'F' The conversational manager defines variable_name as a 

functional variable, All JFT variables are functional variables. 
This parameter is required. 


Examples 


SCMVPUT ( 'NAME ' ,21 ,,SAVENAME, ' F ' ) 
SCMVPUT CSAMPKYWD,(R2),(R4),'F') 


Reference Manual 


55 





Chapter 6 — Calling CICS Programs' 


Calling CICS Programs from SYSD/JFT 

This section provides an example of a JFT application called JFTADD that gets two 
numbers from a JFT panel. JFTADD shows how to get JFT variables in your CICS 
program, call subroutines in your CICS program^ and return values to JFT from your 
CICS program. The panel validates the inputto make sure itis numeric. The JFT panel 
validates the numbers and calls a CICS program^ to add them. The CICS program then 
returns the sum back to JFT. JFT displays the sum on the panel for the user. 


Appendix C, JFTADD Program, provides the complete code for JFTADDi 
The source is also in the JFT sample library. When you install SYSD/JFT, this 
program is copied to your SYSD.SOURCE library and is called JFTADDi 

You can copy JFTADD and change it to create your own CICS programs to perform other 
functions. For example, you could have your CICS program read a VS AM. file and return 
values back to JFT for display. You can also pass the JFT variables back to your CICS 
program and then update the VSAM file. 



Calling the JFTADD Program 

The following is the code for a panel that accepts and edits the input and then displays 
the result: 


)ATTR 

TYPE<OUTPUT) INTENS(HIGH) 

)BODY 

%ENTER Number 1 _NUM1 % 

%ENTER Number 2 _NUM2 % 

% ================== 

%T0TAL : -SUM % 

)INIT 

.SYSDTTL = 'JFT Addition Link Program' 
)PR0C ■ 

VER <&NUM1,NB,,NUM) 

VER (MUM2,NB,NUM) 

IF (.MSG = &Z) 

LINK(PGM(JFTADD)) 

)END 


JFT variables are stored in character (EBCDIC) format. As a result, JFTADD must convert 
the data entered into the required format for processing. In this example, JFTADD is 
adding two numbers so the input must be converted to numeric values. To accomplish 
this, the VERstatements verify that the fields are not blank (NB option) and that the 
characters entered in them.are numeric (NUM option). 
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Then JFT checks the .MSG system variable to see if an error was found. JFT only calls 
JFTADD when NTJMl and NUM2 are both numeric, which means an error was not found. 

The LINK command tells JFT to call JFTADDi 


The program JFT calls mustbe a CICS program and have a PPT table entry 
defined. If you change the program being called, you must issue a 
Newcopy command to GIGS. 
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SYSD-like Programs 

SYSD-like programs use the $PROC rriacro to mark the beginning of the program and 
subroutines. JFT calls these subroutines using assembly language call standards; that is, 
JFT passes the parameters using Register l.,The $PROC macro takes care of saving 
register information from the calling program. The $END macro marks the end of a 
program or subroutine and restores the registers for the calling program. 

You can use the SRETURN macro in subroutines to set a return code. The format of the 
IRETURN macro is: 


SRETURN RC=0 


The calling program or routine can then check Register 15 to find out what the return 
code is. The panel cannot check the return code of the program it linked to. To accomplish 
this, you must define a JFT variable in your panel and use the $CMVPIJT macro to set 
that variable in your GICS program. 


storing Data in JFT-like Programs 

You can define user storage areas in one of three areas depending on how you will use 
the data. 



Constant Data 

You can define constant data, like tables, after the $END macro. For example: 



SEND 

RC=0 

-- 

PI 

DC 

PL3'3.14' 



Local Variables 

Local variables are only addressable within the routine being processed. They are defined 
and addressable between the $PROG and $END macros. You can use the $DGL macro to 
define local variables. 

The $DGL macro lets you allocate data areas in two ways. First, you can define data areas 
with individual $DGL macros for each variable. For example: 
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VALNUM SPROC 


$DCL NUMBEGN,FUL 

POINTER TO PASSED VALUE 

$DCL NUMLEN,FUL 

LENGTH OF THE FIELD PASSED 

$DCL PADLEN„FUL 

LENGTH OF THE FIELD PASSED 

$DCL WORKNUM„CHAR(10) 

WORK FIELD 


Second^ you can define them in a group with the $DCL ON and $DCL OFF macro 
parameter. For example: 


&PGMNA«E $PROC OPTIONS=(MAIN,COMMAND,GEN) 

$DCL ON 

WPFLD1 DS PL5 PACKED WORK AREA FOR NUMBER 1 

WPFLD2 DS PL5 PACKED WORK AREA FOR NUMBER 2 

WPSUM DS PL6 PACKED WORK AREA FOR NUMBER SUM 

$DCL OFF 


Global Variables 


Global variables can be used anywhere in the program; You can define them in the 
program's Dynamic Storage Area. The following example shows three variables used in 
the JFTADD example: 



ATITLE 

'** COMMAND LEVEL DYNAMIC STORAGE 

***************if*******iH,**iciiit*i(****1fkl(****iiitiii(i,***it*******ititli***it1<ii*lt 

* 


COMMAND LEVEL DYNAMIC STORAGE * 

*******ii*********ifk***it********** 1 ,***it***i(*it** 1 ri,**icit* 1 ,-kil,it 1 ,*itii* 1 t*** 1 t*it* 

* AREA 

HEADER INFORMATION. 

DFHEISTG DSECT 


DFHEISTG ,,, 


COMMBEGN EQU 

* 


*** PLACE DYNAMIC STORAGE 

AREAS HERE. 

EBACNUM1 DS 

CL9 

FIRST NUMBER TO ADD 

NUM1LEN EQU 

L'EBACNUMI 

LENGTH OF NUMBER 1 

EBACNUM2 DS 

CL9 

SECOND NUMBER TO ADD 

MUM2LEN EQU 

L'EBACNUM2 

LENGTH OF NUMBER 2 

EBACSUM DS 

CL11 

RETURN THE NUMBER BACK.. 



JFTADD Program 

When JFT calls JFTADD, the first thing JFTADD does is get the JFT variables it will 
process. This is done using the $CMVGET macro. For example:: 


■k 

* GET 

* 

THE NUMBERS TO ADD 


SCHVGET 

C'NUMl 

•,9,EBACNUMr) 

FIRST NUMBER 

SCMVGET 

C'NUM2 

',9,EBACNUM2) 

SECOND NUMBER 
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The $CM¥GET macro copies the data from the NUMl and NIJM2 JFT variables into; 
JFTADD's memory.,The EBACNXJMl and EBA(lNIJM 2 variables are global variables in 
the program since they are stored in the Dynamic Storage Area, which means any routine 
in JFTADD can access them. 

JFTADD then converts the data in EBAGNUMl and EBACNt0M2 from character 
(EBCDIC) format to packed-numeric format, left justifying the data in the field. To 
convert the number, JFTADD calls the VALNUM routine to right justify and zero fill the 
field. The $CALL macro builds a parameter list and points Register 1 to that list before 
calling the VALNUM routine. After the VALNUM routine completes successfully, JFTADD 
adds the two numbers and converts EBACNUMl, EBACNUM2, and EBACSUM back to 
character (EBCDIC) format. 

To display the result back to the user, JFTADD uses the $CMVPUT macro to update the 
JFT variables. For example: 


SCMVPUT 

( 

■NUMl 

',9,EBACNUMl,'F') 

PASS 

NUMBER1 TO 

JFT PANEL 

$CMVPUT 

( 

'NUM2 

',9,EBACNUM2,'F') 

PASS 

NUMBER2 TO 

JFT PANEL 

SCMVPUT 

( 

'SUM 

',11,EBACSUM,'F') 

PASS 

SUM TO JFT 

PANEL 



You may want to try commenting out the $CMVPUT lines for the NUMl 
and NUM2 variables. These two lines cause JFT to display the zero-filled, 
right-justified values to the user..If you comment them out, JFT displays the 
NUMl and NUM2 variables as entered. 


The $END macro indicates the end of the program and returns control to JFT. In this 
example, JFT ends processing and displays the results to the user. You can also continue 
with JFT processing logic based on the results returned from the CICS program. 
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This appendix provides a list of the variables JFT can access from the CPMS/SYSD menu 
system. 


Option 0.0/General Parameter Definitions 

Variable name 

Lengthi 

Description/ 

$ADDR1 

29 

Address line 1 

$ADDR2 

29 

Address line 2 

$ADDR3 

29 

Address line 3 

$ADDR4 

29 

Address line 4 

$DEPART 

29 

User's department name 

$NAME 

29 

User's name 

$PSWD 

9 

User's password 

$TITLE 

29 

User's title 

$USER 

11 

User ID 

Option 0*1, JES/List 

Parameter Definitions 

Variable name 

Lengthi 

Description/ 

$GLASS 

1 

Job class selected for display 

$DESTID 

10 

Destination 

C "PI C tD C'T'rP c 

1 

Display TSO/STC 

$JOBCRDl 

72 

JOB card 1 
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Variable name 

LengfHi 

Description 

$jobg:rid2 

72 

JOB card 2 

$JOBCRD3 

72 

JOB card 3 

$J(DBCRD4 

72 

JOB card 4 

IPREFIX 

8 

Job prefix selected for display 

IPRINTER 

4 

Printer ID 

$PRTPRTD 

1 

Printer display preference (CPMS or JES2) 

$SYSINOK 

1 

ViewSYSINJES datasets 

Optloni042, Programi Function Kiey Definition 

Variable name 

Length! 

Description! 

$CLEAR. 

8 

Clear key value 

$PA1 

8 

PAl key value 

$PA2 

8 

PA2 key value 

$PA3 

8 

PA3 key value 

$PF01 

8 

PFl key value 

$PF02 

8 

PF2 key value 

$PF03 

8 

PF3 key value 

$PF04 

8 

PF4 key value 

$PF05 

8 

PFSkeyvalue 

$PF06 

8 

PF6 key value 

$PF07 

8 

PF7 key value 

$PP08 

8 

PF8 key value 

$PF09 

8 

PF9 key value 

$PF10 

8 

PFIO key value 

$PF11 

8 

PFll key value 
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Variable name 

Lengtbt 

Description! 

$PF12 

8 

PF12 key value 

$PF13 

8 

PFlSkey value 

$PF14 

8 

PF14 key value 

$PF15 

8 

PF15 key value 

$PF16 

8 

PF16 key value 

$PF17 

8 

PF17 key value 

$PF18 

8 

PF18 key value 

$PF19 

8 

PF19 key value 

$PF20 

8 

PF20 key value 

$PF21 

8 

PF21 key value 

$PF22 

8 

PF22 key value 

$PF23 

8 

PF23 key value 

$PF24 

8 

PF24 key value 

Option 0.3, Job/File Tailoring Parameters 

Variable name 

Lengthi 

Description! 

$JFTJESN 

8 

Initial JES JFT panel name 

$JFTMSG1 

44 

JFT message library concatenation - dataset 1 

$JFTMSG2 

44 

JFT message library concatenation - dataset2 

$JFTMSG3 

44 

JFT message library concatenation - dataset 3 

$JFTMSG4 

44 

JFT message library concatenation - dataset 4 

$JFTMSG5 

44 

JFT message library concatenation - dataset 5 

IJFTPANl 

44 

JFT panel library concatenation - dataset 1 

$JFTPAN2 

44 

JFT panel library concatenation - dataset 2 

$JFTPAN3 

44 

JFT panel library concatenation - dataset 3 
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Variable name 

Lengthi 

Descriptions 

$JFTPAN4 

44 

JFT panel library concatenation - dataset 4 

$JFTPAN5 

44 

JFT panel library concatenation - dataset 5 

$JFTPEXE 

1 

Execute any panel authorization flag 

IJFTPNME 

8 

Initial JFT panel name 

IJFTSKLl 

44 

JFT skeleton library concatenation - dataset 1 

$JFTSKL2 

44 

JFT skeleton library concatenation - dataset 2 

$JFTSKL3 

44 

JFT skeleton library concatenation - dataset 3 

$JFTSKL4 

44 

JFT skeleton library concatenation - dataset4 

$JFTSKL5 

44 

JFT skeleton library concatenation - dataset 5 

Option 0.4, GET/PUT TS Queue Identifiers 

Variable name 

Length 

Description! 

$TSQSYOV 

1 

Queue and SYSID override retention 

STSQUEID 

8 

GET/PUT queue ID save area 

$TSSYSID 

4 

GET/PUT system ID save area 

Option! 0.5, Utility Parameters 


Variable name 

Length! 

Descriptioni 

$PRTGLAS 

1 

Print class 

SPRTJCDI 

72 

Print JOB card 1 

$PRTJGD2 

72 

Print JOB card 2 

$PRTJCD3 

72 

Print JOB card 3 

$PRTJ€D4 

72 

Print JOB card 4 

$PRTLPGE 

3 

Print lines per page 
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Option U, User File Maintenanee 


Variable name 

Length' 

Description! 

$ADDM 

29 

Address line 1 

$ADDR2 

29 

Address line 2 

$ADDR3 

29 

Address line 3 

$ADDR4 

29 

Address line 4 

$ADMIM 

11 

Admin authority 

$eONTROL 

11 

Control authority 

$DEPART 

29 

Department 

SJESJSCA 

4 

List of classes the user is authorized to view (4, 
1-byte fields) 

$JESJSCB 

4 

Second list of classes the user is authorized to view 
(4,1-byte fields) 

$JESJSDA 

40 

List of destinations the user is authorized to view 
(4,10-byte fields) 

$JESJSDB 

40 

Second list of destinations the user is authorized to 
view (4,10-byte fields) 

SJESJSJA 

32 

List of jobs the user is authorized to view (4,8-byte 
fields) 

$JESJSMA 

4 

Miscellaneous field available for user definition 
and use 

$JESJSVA 

X 

JES2 queue view authority 

$NAME 

29 

User's name 

$PRTGLMK 

8 

CPMS printer selection mask (8,1-byte fields) 

$PR5'PR3^ 

10 

CPMS destination selection mask 

fPRTPRTA 

64 

List of printers the user is authorized to view (8, 
8-byte fields) 

SPRTPRTS 

1 

If the user can change the criteria the hot 
writers/JOE writers use to select jobs 

SPRnTPRTV 

1 

Printer view authorization 
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Variable name 

Length! 

Description! 

$PSWD 

9 

User's password 

$RECEI¥E 

11 

Receive authority 

$TITLB 

29 

User's title 

I $USER. 

11 

User ID 

Options 1, 2,,and 3 (Edit, Browse, and Utility) 

Name 

1 

Lengthi 

Description! 

$BRWBOTH 

56 

Edit other dataset name 

$BRWSLB1 

8 

Browse library 1 

$BRWSLB2 

8 

Browse library 2 

$BRWSLB3 

j 

8 

Browse library 3 

' $BRWSLB4 

8 

Browse library 4 

$BRWSPRJ 

8 

Browse project ■; 

$BRWSTYP' 

i 

1 

8 

Browse library type 

j $EDITLB1 

8 

Edit library 1 

1 $EDITLB2 

8 

Edit library 2 

$EDITLB3 

1 

8 

Edit library 3 

1 

1 $EDITLB4 

1 

8 

Edit library 4 

$EDITOTH 

j 

56 

Edit other dataset name 

$EDITPRJ' 

8 

Edit project 

lEDITTYP' 

8 

Edit library type 

$UTILLB1 

8 

Utility library 1 

$UTILLB2 

8 

Utility library 2 

$UTILLB3 

8 

Utility library 3 

1 

j $UTILLB4 

1 

1 

1 

i 

8 

Utility library 4 

1 

1 

1 

i 

1 

i 
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( j 


Name Length' Description! 

$UTILPRJ 8 Utility project 

$UTILTYP' 8 Utility library type 
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Sampk Panels 


This appendix provides samples of some JFT panels and the code that generates them. 



H&W is interested in. seeing any additional examples you develop. Please 
submit your samples to H&W for possible inclusion in our reference files. 
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Primary Menu 

The following panel shows an example of a primary menu for system utility functions: 



-. ( 1 / 1 ) 

SCROLL; CSR 


Panel Name = SYSD08 


SYSD Option 0.3 sets the Default Panel to Execute upon entry to JFT. 
If you desire your own Main Menu...Update 0.3 with the Name of the 
Panel you wish to execute. 


17;08:31 --Example Job/File Tailoring 

input ===> 


====> Enter Selection in Input Field Above: 

1 = SYSTEM Utilities 
X = EXIT 


The following code generates this panel: 



)ATTR DEFAULT(?$+_) 

TYPEITEXT) INTEN<L0W) 

)B0DY 

-,====> Enter Selection in Input Field Above:% ^Panel Name = SYSD08 

%1-.= system: uri lities% 

%X-= EXIT% 


%SYSD-.Option 0.3 sets the Default Panel to Execute upon entry to%JFT. 
If you desire your own Main Menu...Update 0.3 with the Name of the 
Panel you wish to execute. 
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)INIT 

• SYSDTTL = 'Example Job/FMe Tailoring' 

)PR0C 

&ZSEL=TRANS{TRUNC<&ZCMD,1)„1,'PANEL(SYSUTIL)'„ 
X„'EXIT'„ 

I I I I 

f 

)END 
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System Utilities Panel 

To view a menu listing the available system utilities, select Option 1 on the primary menu 
shown on page 70. The follbwing is an example of the System Utilities panel:: 


17:13:38. Exanple Job/Fvle Tailoring. (1/1) 

input ===> SCROLL: CSR 


====> ENTER SELECTION IN INPUT FIELD ABOVE:: PANEL NAME=SYSUTIL 


1 = Submit lEBCOPY to copy member(S) of a PDS 

2 = Submit lEBGENER to copy a sequential file 

3 = Submit IE8UPDTE to rename a meiryDerfs) of a PDS 
X = Exit 


The following code generates this panel: 


)ATTR DEFAULT(%+_) 

TYPE<TEXT) INTENCLOW) 

)B0DY 

_====> enter SELECTION IN INPUT FIELD ABOVE:% -.PANEL NAME=SYSUTIL 

%!-.= Submit%IEBCOPY-.to copy memberCs) of a PDS% 

%2-.= Submit%IEBGENER-.to copy a sequential file% 

%3^= Submi t%IEBUPDTE--to rename a member (s) of a PDS% 

%X-,= Exit% 

yPROC 

&2SEL=TRANS<TRUNC<&2CMD,1), 

1, 'PANELdEBCOPY) ', 

2,,'PANEL<IEBGENER):',, 

3, 'PANEL<IEBUPDTE)‘,, 

X, 'EXIT' , 

I I 1 I 
0 § 

)END 
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Submit lEBCOPY Panel 

To execute the lEBCOPY utility, select option 1 on the System Utilities panel shown on 
page 72. The following is an example of the Submit lEBGOPY panel: 

17:17:53.. Submit lEBCOPY.-. (1/1) 

INPUT ===> SCROLL: CSR 

Jobname; COPY 

Job Class: A (Must be an 'A' or '8') 

MSgclass; A (MUst be an 'A' or 'Q') 

Typrun: HOLD (HUst be 'RUN'v ‘HOLD', or 'SCAN'); 

Input Dataset;: 

Disp:: SHR 
Output Dataset: 

Disp: SHR 

Members to Copy: 


Replace MemberCS): N (Enter 'Y' to Replace Members) 

Submit; N (Enter 'Y' to SUBMIT Job) 


The user enters the data on the panel. The subroutine verifies the fields, reads a skeleton 
file, substitutes the variables from the panel, and submits the job to the internal reader. 
The following code generates this panel:: 


)ATTR DEFAULT(%+_) 

TYPE(TEXT), INTEN(LOW) 

* TYPE(INPUT) INTEN(LOW) 

I TYPE(OUTPUT) INTEN(LOW) 

)B0DY 

-I Jobname:;* JOBNAM- 
-.Job Class:*C-. 
-,MSgclass:*M-i 
-.Typrun :*TYPR-^ 

-.Input Dataset:;*IDSN 
-.Disp:*IDSP% 
-.Output Dataset ::*ODSN 
-.Disp:*0DSP% 


(Must be an 'A' or '8')% 

(Must be an 'A' or '8')% 

(HUst be 'RUN', 'HOLD',, or 'SCAN')% 


-.Members to Copy;*M01 


•.Replace Hember(s):;*R- 
-.Submi t::*S- 


*M03 *M04 


*M08 *M09 


(Enter 'Y' to Replace Mtembers)% 
(Enter 'Y' to SUBMIT Job):% 
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)INIT 

.SYSDTTL = 'Submit lEBCOPY' 
&JOBNAM = COPY 
&C = A 

m = A 
&TYPR = HOLD 
&IDSP = SHR 
&ODSP = SHR 
&R = M 
,&S = M 
)PROC 

&OM01 = &Z 

&OM02 = &Z 

&OM03 = &Z 

&OM04 = &Z 

&OM05 = &Z 

&OM06 = &Z 

&OM07 = &Z 

&OM08 = &Z 

&OM09 = &Z 

&OM10 = &Z 

VER<&JOBNAM,NB) 

VER<&C,NB,LIST,A,8) 

VER(&M,,NB,LIST,A,a) 

V£R(&TYPR,LIST,,'RUM ' „HOLD,SCAN) 

VER(&IDSN,NB,DSN) 

VER(&ODSN,HB,DSN) 

IF (&IDSN = 'J‘> 

&IDSN = '&$USER..JCL.SOURCE' 

IF (&ODSN = ' J' ), 

&ODSH = '&$USER..JCL.SOURCE' 

IF (&IDSN = 'DAS') 

&1DSN = 'SYSD.PTFA.SOURCE' 

IF (&ODSN = 'DAS') 

&ODSN = 'SYSD.PTFA.SOURCE' 

IF (&IDSN = 'DBS') 

&IDSH = 'SYSD.PTFB.SOURCE' 

IF (&ODSN = ‘DBS') 

&ODSN = 'SYSD.PTFB.SOURCE' 

IF (&IDSN = 'OBL') 

&IDSH = 'SYSD.PTFBMVS.LOADLIB' 
IF (&ODSN = 'DBL") 

&ODSN = 'SYSD.PTFBMVS.LOADLIB' 
VER(&M01,NAME) 

VER{&M02,NAME) 

VER(&H03,HAME) 

VER(&M04,NAME) 

VER(:&M05,NAME) 

VER(&M06,NAME) 

VER(&M07,NAME) 

VER{&M08,NAME) 

VER(&M09,NAME) 

VERC&M10„NAME) 

VER(&R,NB,LIST,Y,N) 


/* set title line */ 

/* set defaults for variables */ 


/* initialize to nulls */ 


/* jobname must be entered */ 

/* class must be an 'A' or '8' */ 

/* msgclass must be an 'A' or '8' */ 
/* typrun must be run,, hold,, or scan 
/* verify i/o dataset names 
/* are valid */ 

/* create short dataset names 
/* like DSN003 */ 


/* verify all member names 
/* are valid */ 


/* replace option must be Y or N */ 
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IF(&M01 - 1 = &Z3 &OM01 = "S M-&M01' /* attach 's ni=.* to tho front 

IFC&M02 •.= &Z) &OM02 = ‘S Mfe&MOZ' /* of each member */ 

IF(&M03 m &OM03 = fS M^&M03' 

I F(&H04 &Z) &OH04 = 'S Hi=&M04' 

IF(&M05 -,= &Z): &OM05 = 'S M±=&M05' 

IF<&M06 &Z) &<3M06 = 'S M=&M06' 

IF<&M07 &Z); &OM07 = 'S M=&M07' 

IFC&MOS -.= &Z) &OM08 = 'S Mt&MOS'' 

IFC&M09 -.= &Z) &OM09 = 'S M=&M09'’ 

IF(&H10 -.= &Z) &OH10 = 'S Mi=&M10' 

IFC&R = N) /* build NO REPLACE control stm */ 

&CONTROL = ‘COPY INDD=IN01,OUTDD=OUT01' 

IFC^tR = Y) /* build REPLACE control stm */ 

&CONTROL = 'COPY INDD=((IN01,R)),OUTDD=OUT01' 

IF<&S = Y): /* submit the job when ready 

IFC.MSG = &2) /* don't submit if errors 

SUBSICEL(IEBCOPY) /* using the skeleton member 

&S=N /* lEBCOPY and turn submit flag off*/ 

)END 


The following is an example of the skeleton file used for the lEBGOPY panel: 


//&$USER&JOBNAM JOB '&$NAME', 

// MSGCLASS=&M,CLASS=&C,TYPRUN=&TYPR 

/*ROUTE PRINT &$DEST1D 
//lEBCOPY EXEC PGMi=IEBCOPY 
//SYSPRINT DD SYSOUT=* 

//IN01 DD OISP=&IDSP,DSN=&TDSN 
//OUT01 DD DISP=&OOSP,DSN=&ODSN 
//SYSIN DD * 

&CONTROL 

&OM01 

&OM02 

&OM03 

&OM04 

&OM05 

&OM06 

&OM07 

&OM08 

&OM09 

&OM10 

/* 

// 
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Appendix C 

JFTADD Program 


This appendix provides the complete code for the JFTADD program. 


*ASM CICSCNOPROLOG NOEPILOG) 
COPY SYSDGBLS 
SETSSI 

LINKCTL COMMAND 
&PGMNAME SETC 'JFTADD' 

ATITLE 'JFTADD - EX 
TYPE=TOPIC 


COMMAND LEVEL TRANSLATOR 


- EXEC CICS LINK JFT EXAMPLE' 


♦PROGRAM 


♦COPYRIGHT 


♦PROGRAMMER 


♦DATE WRITTEN 


♦PURPOSE 


JFTADD - EXEC CICS LINK JFT EXAMPLE 
(C)COPYRIGHT 1997, H & W COMPUTER SYSTEMS, INC. 

PETER J. PAPE 
AUGUST 21, 1997 

THIS PROGRAM ADDS TWO NUMBERS ENTERED FROM A JFT 
PANEL. THE PANEL ASSIGN AND VERIFY JFT VARIABLE 
NAMES NUM1 AND NUM2. NUM1 AND NUM2 MUST BE NUMERIC. 

THE SPROC AND SEND ARE REQUIRED. THE FIRST $PROC MUST 
HAVE OPTIONS OF MAIN AND COMMAND. BY SPECIFYING GEN, 
ALL MACROS WILL BE EXPANDED. ADDITIONAL SPROC AND SEND 
MACROS MAY BE USED AND INVOKED WITH A SCALL MACRO. 

EACH SPROC AND SEND ARE THE BEGINNING AND ENDING OF A 
CSECT. THE SPROC THAT HAS THE OPTIONS OF MAIN,IS THE 
CSECT THAT GETS CONTROL WHEN LINKED TO. 

FOR FURTHER EXAMPLES, REFER TO SYSD.SOURCE. IF THE 
MACRO EXPANSIONS ARE NECESSARY, OPTION 'LIST' MUST 
BE USED WHEN ASSEMBLING. 


♦MAINTENANCE LOG 
MODID 

♦ PUT 06.4.0 

♦ PJ 08/21/97 CREATED. 

♦INPUT 

♦ VARIABLES FROM THE FUNCTION POOL. 
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*OUTPUT 

* updated VARIABLES FROM THE FUNCTION POOL. 

*OS/VS MACROS USED 

PRINT OFF 

COPY DFHCSADS 

COPY DFHTCADS 

DFHBFTCA OPTION=BASIC 

PRINT ON 

SYSDTWA 

TWAEND EQU * END OF TWA 

TWALGHT EQU TWAEND-TWASTART LENGTH OF TWA 

ATITLE '** COMMAND LEVEL DYNAMIC STORAGE **> 
**********************1t*it**ie****ifklfk1t***1fk*iiii*ititie*1i***i(*1i*it*itiiici,itii***** 

* COMMAND LEVEL DYNAMIC STORAGE * 

******************it1tit1i-k1iit*int***iiitificfiititit*i,i,i,iti,tiit*1i************itit1t*ii****it 

* AREA HEADER INFORMATION. 

DFHEISTG DSECT 

DFHEISTG , 

COMMBEGN EQU * 

*** PLACE DYNAMIC STORAGE AREAS HERE. 


EBACNUM1 DS 
NUM1LEN EQU 
EBACNUM2 DS 
NUM2LEN EQU 
EBACSUH DS 
* 

COMMLGTH EQU 

ATITLE 


SAVER 

BASER 


CL9 

L'EBACNUMI 
CL9 

L'EBACNUM2 
CL11 

AREA TRAILER 
*-COMMBEGN 
'** EQUATES ** 

REGEQU 
EQU R8 
EQU R9 

** 


FIRST NUMBER TO ADD 
LENGTH OF NUMBER 1 
SECOND NUMBER TO ADD 
LENGTH OF NUMBER 2 
RETURN THE NUMBER BACK., 
INFORMATION. 

LENGTH OF AREA 


&PGMNAME 

$PROC 

$DCL 

OPTIONS=(MATN 

ON 

.COMMAND,GEN) 

WPFLD1 

DS 

PL5 

PACKED 

WPFLD2 

DS 

PL5 

PACKED 

WPSUM 

DS 

$DCL 

PL6 

OFF 

PACKED 


REGISTER SAVE AREA POINTER 
PROGRAM BASE REGISTER 
ATITLE ' ** PROGRAM MAIN PROCEDURE **' 

* PROGRAM MAIN PROCEDURE * 


PACKED WORK AREA FOR NUMBER 1 

:K AREA FOR NUMBER 2 

:K AREA FOR NUMBER SUM 


GET THE NUMBERS TO ADD 

SCMVGET CNUHI ',9,EBACNUM1) FIRST NUMBER 

SCMVGET ('NUM2 ',9„EBACNUM2) SECOND NUMBER 

CONVERT THE DATA TO PACK NUMBERS 

SCALL VCVALNUM),(EBACNUM1.NUMILEN) 

PACK WPFLD1,EBACNUM1 PACK:THE FIRST NUMBER 

$CALL V(VALNUM):,(EBACNUM2,NUM2LEN) 

PACK WPFLD2,EBACNUM2 PACK THE SECOND NUMBER 


ZAP 

AP 


NOW WE ADD THEM 

WPSUM,WPFLD1 

WPSUH,WPFLD2 


MOVE FIRST NUMBER TO THE SUM FLD 
ADD SECOND NUMBER TO THE FIRST 



\ 
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CONVERT TO DISPLAY 


UNPK EBACNUM1,WPFLD1 


unpack:the number 


EBACNUM1 + a 'EBACNUM1 -1) ,X 'f 0' 


UNPK EBACNUM2.UPFLD2 


UNPACK THE NUMBER 


01 EBACNUM2+<1•EBACNUM2-1> ,X'FO' 

UNPK EBACSUM.WPSUM UNPACK THE NUMBER 

01 EBACSUM+CL'EBACSUM-1),X'FO' 

PASS THE NUMBERS BACK TO JFT 


SCMVPUT CNUMI ',9,EBACNUM1,'F') PASS NUMBER! TO JFT PANEL 

SCMVPUT ('NUM2 ',9,EBACNUM2,'F') PASS NUMBER2 TO JFT PANEL 

SCMVPUT ('SUM ',11,EBACSUM,.'F') PASS SUM TO JFT PANEL 

SEND RC=0 

ATITLE ' VALIDATE NUMERIC FIELD ' 

*********************************************************************** 

* VALNUM - VALIDATE NUMERIC FIELD * 

* * 

* THIS ROUTINE TAKES THE INPUT NUMBER AND LENGTH FIELD AND * 

* RIGHT JUSTIFIES THE NUMBER AND FILLS ZEROS TO THE LEFT * 

* TO MAKE THE NUMBER VALID FOR PACK INSTRUCTION. * 

* * 

* INPUT * 

* CHARACTER FIELD TO BE CONVERTED TO NUMERIC DATA * 

* LENGTH OF THE FIELD TO BE CONVERTED * 

* OUTPUT * 

* RETURNS ZERO - UPDATES MEMORY LOCATION OF VALUE PASSED * 


*********************************************************************** 
VALNUM SPROC 


SPROC 




SDCL 

NUMBEGN,FUL 

POINTER TO PASSED VALUE 

SDCL 

NUMLEN,FUL 

LENGTH OF THE FIELD 

PASSED 

SDCL 

PADLEN.FUL 

LENGTH OF THE FIELD 

PASSED 

SDCL 

WORKNUM,CHAR(rO) 

WORK; FIELD 


LH 

R2,R3,0(R1) 

GET THE PARM DATA 


LA 

R3,0(,R3) 

CLEAR THE HIGH ORDER 

BIT 

ST 

R2,NUMBEGN 

SAVE POINTER TO VALUE PASSED 

ST 

R3,NUMLEN 

SAVE LENGTH OF VALUE 

PASSED 


DETERMINE HOW MANY ZEROS NEED TO BE INSERTED 


VALNUM10 DS 
C 

BL 

CLI 

BE 

* 

LA 

BCT 

VALNUM20 DS 
ST 


OH 

R3,=X'00000000' 
VALNUM20 
0CR2),X'40' 
VALNUM20 

R2„1(,R2) 

R3,VALNUM10 
OH 

R3,PADLEN 


WHILE R3 > ZERO 
IF R3 > ZERO 
STOP THE LOOP 
IF CHAR = SPACES 
STOP THE LOOP 
ELSE 

POINT TO THE NEXT CHARACTER 
DECREMENT LENGTH COUNTER(R3) 
ENDWHILE 

SAVE NUMBER OF BYTES TO PAD 
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ie 

it 

it 

ZERO 

PAD AND RIGHT JUSTIFY 



L 

R2,NUMBEGN 

POINT TO THE INPUT NUMBER 


LA 

R3,0 

SET R3 TO ZERO 


LA 

R4,W0RKNUM 

POINT TO THE WORK NUMBER 

VALNUM30 

DS 

OH 


C 

R3,NUMLEN 

WHILE R3 < LENGTH OF NUM FLD 


BL 

VALNUM35 

CONTINUE 


B 

VALNUM60 

ELSE STOP THE LOOP 

VALNUM35 

DS 

OH 



C 

R3,PADLEN 

IF R3 > OR EQUAL PAD LENGTH 


BL 

VALNUM40 



MVC 

0(1,R4),0(R2) 

MOVE THE NUMBER IN 


LA 

R2,1(,R2) 

POINT TO NEXT INPUT BYTE 


B 

VALNUM50 


VALNUM40 

DS 

OH 

ELSE 


MV.I 

0<R4),X'F0' 

MOVE ZERO IN FOR PAD 

VALNUM50 

DS 

OH 

END IF 


LA 

R4,1(,R4) 

POINT TO NEXT OUTPUT BYTE 


LA 

R3,1(,R3) 

ADD ONE TO THE NUMBER OF BYTES 


B 

VALNUM30 


VALNUM60 

* 

DS 

OH 

ENDWHILE 

* 

* 

MOVE 

THE DATA TO THE WORK FIELD TO THE PASSED FIELD 


L 

R2,NUMBEGN 

POINT TO FIRST BYTE 


L 

R1,NUMLEN 

GET LENGTH TO MOVE 


BCTR 

R1,0 

DECREASE LENGTH BY 1 FOR MVC 


EX 

R1,MOVEDATA 

GO DO THE MOVE 


SEND 

RC=0 


MOVEDATA 

MVC 

0(*-*,R2>,WORKNUM 



ATITLE ' ** AUTOMATIC SUBROUTINE GENERATION **" 


****)lr***************************************************^^*^^^^^^^^^^^^^ 


* AUTOMATIC SUBROUTINE GENERATION * 

*********************************************************************** 

SSBRTNG 

ATITLE ' ** AUTOMATIC DSECT GENERATION **' 

************-kii***it*ifk*******it*it*itit***-k***it*it**li*iti(**iHi***it*****i,**itiiiiic-t, 

* AUTOMATIC DSECT GENERATION * 

************************************************************^**^^^^^^^^ 

SDSECTG 

ATITLE ' ** COMMAND LEVEL CLEAN UP **■ 
***i<******ifkitit**ir*ii**iiik*ici<**ifk***** 1 eifk 1 i***itifk***ifkifk*ic 1 t 1 fk* 1 t*it***i(icii* 1 (it 1 i 

* COMMAND LEVEL CLEAN UP * 

*********************************************************************** 
&PGMNAME CSECT 

PRINT GEN 
DFHEISTG 
DFHEIEND 
END 
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Index 


o 




f 

• 

$CALL macro 60 
$CM¥GET maao 54 
SCMVPDT macro 55 
SDGLmaao 58-59 
$END macro 58-59 
$PROC macro 58-59 
$RETURN macro 58 
&$DEPART profile variable 22 
&$DESTID profile variable 22 
&$NAME profile variable 22 
&$TITLE profile variable 22 
&$USER profile variable 22 
&Z system variable 20 
&ZCMD system variable 20 
&ZCSR system variable 20 
&ZDATE system variable 20 
&ZDAY system variable 20 
(ScZJDATE system variable 20 
&ZJ4DATE system variable 21 
&ZJDATEST system variable 20 
&ZMONTH system variable 21 
&ZSEL system variable 21 
&ZSTD sy stem variable 21 
&ZTIME system variable 21 
i&ZYEAR system variable 21 
)ATTR section 8-9 
)BLANK control statement 48 
)BODY section. 10-11 
variables 19-25 
)CM control statement 48 
)DEFAULT control statement 49 
)END section 17 
)IM control statement 49 
)IMT section 12-13 
logic statements 27-45 
variables 19-25 
)PROC section 14-16 

invoMing new panel after processing 21 
logic statements 27-45 


variables 19-25 
)TB control statement 49 
.CURSOR control variable 23 
.GURSORF'control variable 23 
.MSG control variable 23-24 
.MSGF control variable 24 
.SYSDTTL control variable 24 
.TRAIL control variable 24 


A 

Accessing 

system information 20-21 
variables from GIGS programs 54 
Allocating data areas 58-59 
Assigning values to variables 29-31/ 38-39 
Assignment statement 29-31 

comparing variables to values 38-39 
concatenation rules 29-30 
defining title line 24 

invoking new panel after processing )PROC section. 
21 

Attribute characters 
defaults 9 
defining 8-9 
overriding defaults 9 


B 

Blank lines 

)BODY section 10 
inserting in output skeleton files 48 
Building parameter lists 60 
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Index 


c 

Galling GICS programs 53-60 
example of 56-57 
Ghanging 

default control statement character 49 
library concatenations dynamically 4 
Checking return codes from subroutines 58 
GICS programs 
calling 53-60 
example of calling 56-57 
linking to 36 

reading variables into storage 54 
updating variables from 55 
Comments 

)BODY section 10 
logic statements 28 
skeletons 48 
Comparing variables 
to values 38-39 
using &Z system variable 20 
Components 2-3 

Concatenating panel, skeleton, and message libraries 
4 

Concatenation rules, assignment statement 29*30 
Conditionally executing statements 34-35 
Constant data 58 
Continuing 

parameters on logic statements 28 
quoted strings on logic statements 28 
Control statement character, changing default 49 
Control statements 48-51 
)BLANK 48 
)CM 48 
)DEFAULT 49 
)IM 49 
)TB 49-51 

Control variables 23-24 

Conventions, syntax ix 

Copying members to output skeleton files 49 

Cursor position 

getting for InpMf field 20 
overriding previous 23 
Cursor, positioning in fields 23 
Customizing 
messages 3 

panels for groups of users 2 


getting from field 2B 
positioning in output skeleton files 49*51 
storing in JET-Hke programs 58-59 
Data areas, allocating 58-59 
Date, system 20-21 
Default attribute draracters 9 
overriding 9 

Default control statement character, changing 49 
Default messages, overriding 3 
Default panel 2 
Defining 

attribute characters 8-9 
panel appearance 10-11 
user storage areas 58-59 
Department name, getting from user file 22 
Destination, getting from Option 0.1 22 
Dynamic Storage Area, defining global variables 59 
Dynamically changing library concatenations 4 


Evaluating expressions 29*31,34-35 

Executing panels 6 

Expressions 

assigning to variables 29-31 
evaluating 29-31,34-35 



F 

Fields, panel 
intensity 8-9 
positioning cursor in 23 
type 8 
Files 

message 52 
skeleton 48-51 
FILESKEL statement 32-33 

substituting variable in output skeleton files 48-51 


G 

Global variables 59 


D 

Data 

constant 58 


I 

lEBCOPY utility, sample panel 73-75 
IF statement 34-35 
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Index 


using &Z system variable for compare 20 
Initializing 
panels 12-13 

variables using system variable 20 
Input data, getting frominpwf field 20 
Input ^ field 

getting cursor position of 20 
getting data from 20 
Input fields, defining 8 

Inserting blank lines in. output skeleton files 48 
Intensity of panel fields, defining 8-9 
Internal reader, submitting skeletons to 37 
Invoking new panel after processing )PROC section 
21 


J 

JFT-like programs 

defining user storage areas 58-59 
storing data in. 58-59 
JFTADD program 
complete code 77-80 
example of calling 56-57 
example of getting variables 59-60 
Julian date 20 


K 

Keyboard conventions ix 


L 

Libraries 

concatenating 4 
copying concatenations 49 
dynamically changing concatenations 4 
LINK statement 36 
Linking to CICS programs 36 
Local variables 58-59 
Logic statements 27-45 
assignment 29-31 
comments 28 
continuing parameters 28 
continuing quoted strings 28 
PILESKBL 32-33 
IF 34-35 
^ link: 36 
SUBSKEL 37 
syntax rules 28 


TRANS 38-39 
TRUNC 40-41 
VER 42-45 


M 

Macros 
$CALL 60 
SCMVGET 54 
SeMVPLfT 55 
$DCL 58-59 
SEND 58-59 
SPROG 58-59 
SRETURN 58 
Manual organization viii 
Marking 

beginning of programs and subroutines 58-59 
end of programs and subroutines 58-59 
Members, saving using skeletons 32-33 
Menu system variables 61-67 
Messages 

concatenating libraries 4 
customizing 3 
definition 3 

displaying on panels 52 

dynamically changing library concatenations 4 

files 52 

overriding default 3 
overriding previous 24 
setting 23-24 
storing 4 


N 

Name, getting from user file 22 


o 

Organization of manual viii 
Output fields, defining 8 
Output skeleton files 
copying members to 49 
inserting blank lines 48 
setting tabs in 49-51 
substituting variables in 48 
Overriding 

default attribute characters 9 
default messages 3 
previous cursor positioning 23 
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previous message 24 
Overview 1-6 


P 

Panel sections 7-17 
)ATTR: 8-9 
)BODY 10-11 
)END 17 
)IMT 12-13 
)PROC 14-16 
Panels 

appearance 10-11 
attribute characters 8-9 
calling CICS programs 53-60 
concatenating libraries 4 
customizing for groups of users 2 
default 2 

default attribute characters 9 

defining title line 24 

definition 2 

displaying messages 52 

dynamically changing library concatenations 4 

executing 6 

field intensity 8-9 

field types 8 

initializing 12-13 

invoking new after processing )PROG section 21 
linking to CICS programs 36 
logic statements 27-45 
message files 52 

overriding default attribute characters 9 
processing 14-16 
samples 69-75 
skeleton files 48-51 
storing 4 
testing 6 
variables 19*25 
Parameters 

building lists 60 

continuing on logic statements 28 
using Register 1 to pass 58 
Passing parameters using Register 1 58 
Position of cursor 

getting for Input field 20 
overriding previous 23 
Positioning 

cursor in fields 23 
data in output skeleton files 49*51 
Primary menu, sample panel 70-71 
Processing panels 14-16 
Profile variables 22 


Programs, CICS 
calling 53-60 
example of calling 56-57 
reading variables into storage 54 
updating variables from 55 
Programs, JFT-like 
defining user storage areas 58-59 
storing data in 58-59 
Programs, SYSD-like 58-60 
checking return codes 58 
marking beginning of 58-59 
marking end of 58-59 
restoring registers at end 58-59 
saving registers 58-59 
setting return codes 58 
Protected text fields, defining 8 
Publications, related x 


Q 

Quoted strings, continuing on logic statements 28 


R 

Reading variables into storage 54 
Register 1 

passing parameters 58 
pointing to parameter lists 60 
Register 15, checking 58 
Registers 

restoring at end of programs and subroutines 58-59 
saving from calling programs 58-59 
Related publications x 
Resetting 

cursor positioning 23 
messages 24 

Restoring registers at end of programs and 
subroutines 58-59 

Returncodes, setting m subroutines 58 


s 

Sample panels 69-75 
Primary Menu 70-71 
Submit IBBGOPY 73-75 
System Utilities 72 
Saving 

members using skeleton 32-33 
registers from calling programs 58-59 
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Setting 

cursor position to fields 23 
messages 23-24 
return codes in subroutines 58 
tabs for output skeleton files 49-51 
Skeleton output files 
copying members to 49 
inserting blank lines in 48 
setting tabs for 49-51 
substituting variables in 48 
Skeletons 48-51 

changing default control character 49 
comments 48 
concatenating libraries 4 
control statements 48-51 
definition 2 

dynamically changing library concatenations 4 
storing 4 

submitting to internal reader 37 
using to save members 32-33 
Storage areas, defining user 58-59 
Storing 

data in JFT-Uke programs 58-59 
messages 4 
panels 4 
skeletons 4 

Strings, continuing quoted 28 
Submit lEBCOPY panel, sample 73-75 
Submitting skeletons to internal reader 37 
Subroutines 

checking return codes 58 
marking beginning of 58-59 
marking end of 58-59 
restoring registers at end 58-59 
setting return codes 58 
SUBSKEL statement 37 

substituting variables in output skeleton files 48-51 
Symbol conventions ix 
Syntax conventions ix 
Syntax rules 

)BODY section 10 
logic statements 28 

SYSD user file, getting information from 22 
SYSD-Hke programs 58-60 
checking return codes 58 
marking beginning of 58-59 
marking end of 58-59 
restoring registers at end 58-59 
saving registers 58-59 
setting return codes 58 
System date 20-21 
System information, accessing 20*21 
System time 21 

System Utilities panel, sample 72 


System variables ^-21 
SYSUTIL panel, sample 72 


T 

Tabs for skeleton output files, setting 49*51 

Testing panels 6 

Text conventions ix 

Text fields, defining 8 

Time, system 21 

Title line, panel 24 

Title, getting from user file 22 

TRANS statement 38-39 

TRUNC statement 40-41 

Truncating variables 40-41 

assigning leftover characters to .TRAIL 24 


Updating variables from CICS programs 55 
User file, getting information from 22 
User ID, getting from user file 22 
User storage areas, defining 58-59 
User variables 25 


V 

Variables 19-25 

accessing from CICS programs 54 

assigning values 29*31,38-39 

comparing to values 38-39 

control 23-24 

global 59 

local 58-59 

menu system 61-67 

overview 5 

profile 22 

reading into storage from CICS programs 54 
skeleton files 48 
substituting in message files 52 
substituting in output skeleton files 48 
system 20-21 
tnmcating 40*41 

updating from CICS programs 55 
user 25 

using &Z system variable to compare 
using &Z system variable to initialize 
verifying values 42-45 
VER'statement 42-45 
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setting messages 23-24 ( 1 

VeriJfying values of variables 42-45 
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